/ CyberMycha 2004 August / CyberMycha 08-2004 (Poland).bin / Spiderman2 / MainApp.cab / UWindow.u / UWindowWindow_UWindowEditBox_ScriptText.TextBuffer

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 00 00 00 00 00 00 00 | 51 97 01 2f 2f 20 55 57 |........|Q..// UW|
|00000010| 69 6e 64 6f 77 45 64 69 | 74 42 6f 78 20 2d 20 73 |indowEdi|tBox - s|
|00000020| 69 6d 70 6c 65 20 65 64 | 69 74 20 62 6f 78 2c 20 |imple ed|it box, |
|00000030| 66 6f 72 20 75 73 65 20 | 69 6e 20 6f 74 68 65 72 |for use |in other|
|00000040| 20 63 6f 6e 74 72 6f 6c | 73 20 73 75 63 68 20 61 | control|s such a|
|00000050| 73 20 0d 0a 2f 2f 20 55 | 57 69 6e 64 6f 77 43 6f |s ..// U|WindowCo|
|00000060| 6d 62 6f 78 42 6f 78 43 | 6f 6e 74 72 6f 6c 2c 20 |mboxBoxC|ontrol, |
|00000070| 55 57 69 6e 64 6f 77 45 | 64 69 74 42 6f 78 43 6f |UWindowE|ditBoxCo|
|00000080| 6e 74 72 6f 6c 20 65 74 | 63 2e 0d 0a 0d 0a 63 6c |ntrol et|c.....cl|
|00000090| 61 73 73 20 55 57 69 6e | 64 6f 77 45 64 69 74 42 |ass UWin|dowEditB|
|000000a0| 6f 78 20 65 78 74 65 6e | 64 73 20 55 57 69 6e 64 |ox exten|ds UWind|
|000000b0| 6f 77 44 69 61 6c 6f 67 | 43 6f 6e 74 72 6f 6c 3b |owDialog|Control;|
|000000c0| 0d 0a 0d 0a 76 61 72 20 | 73 74 72 69 6e 67 09 09 |....var |string..|
|000000d0| 56 61 6c 75 65 3b 0d 0a | 76 61 72 20 73 74 72 69 |Value;..|var stri|
|000000e0| 6e 67 09 09 56 61 6c 75 | 65 32 3b 0d 0a 76 61 72 |ng..Valu|e2;..var|
|000000f0| 20 69 6e 74 09 09 09 43 | 61 72 65 74 4f 66 66 73 | int...C|aretOffs|
|00000100| 65 74 3b 0d 0a 76 61 72 | 20 69 6e 74 09 09 09 4d |et;..var| int...M|
|00000110| 61 78 4c 65 6e 67 74 68 | 3b 0d 0a 76 61 72 20 66 |axLength|;..var f|
|00000120| 6c 6f 61 74 09 09 4c 61 | 73 74 44 72 61 77 54 69 |loat..La|stDrawTi|
|00000130| 6d 65 3b 0d 0a 76 61 72 | 20 62 6f 6f 6c 09 09 62 |me;..var| bool..b|
|00000140| 53 68 6f 77 43 61 72 65 | 74 3b 0d 0a 76 61 72 20 |ShowCare|t;..var |
|00000150| 66 6c 6f 61 74 09 09 4f | 66 66 73 65 74 3b 0d 0a |float..O|ffset;..|
|00000160| 76 61 72 20 55 57 69 6e | 64 6f 77 44 69 61 6c 6f |var UWin|dowDialo|
|00000170| 67 43 6f 6e 74 72 6f 6c | 09 4e 6f 74 69 66 79 4f |gControl|.NotifyO|
|00000180| 77 6e 65 72 3b 0d 0a 76 | 61 72 20 62 6f 6f 6c 09 |wner;..v|ar bool.|
|00000190| 09 62 4e 75 6d 65 72 69 | 63 4f 6e 6c 79 3b 0d 0a |.bNumeri|cOnly;..|
|000001a0| 76 61 72 20 62 6f 6f 6c | 09 09 62 4e 75 6d 65 72 |var bool|..bNumer|
|000001b0| 69 63 46 6c 6f 61 74 3b | 0d 0a 76 61 72 20 62 6f |icFloat;|..var bo|
|000001c0| 6f 6c 09 09 62 43 61 6e | 45 64 69 74 3b 0d 0a 76 |ol..bCan|Edit;..v|
|000001d0| 61 72 20 62 6f 6f 6c 09 | 09 62 41 6c 6c 53 65 6c |ar bool.|.bAllSel|
|000001e0| 65 63 74 65 64 3b 0d 0a | 76 61 72 20 62 6f 6f 6c |ected;..|var bool|
|000001f0| 09 09 62 53 65 6c 65 63 | 74 4f 6e 46 6f 63 75 73 |..bSelec|tOnFocus|
|00000200| 3b 0d 0a 76 61 72 20 62 | 6f 6f 6c 09 09 62 44 65 |;..var b|ool..bDe|
|00000210| 6c 61 79 65 64 4e 6f 74 | 69 66 79 3b 0d 0a 76 61 |layedNot|ify;..va|
|00000220| 72 20 62 6f 6f 6c 09 09 | 62 43 68 61 6e 67 65 50 |r bool..|bChangeP|
|00000230| 65 6e 64 69 6e 67 3b 0d | 0a 76 61 72 20 62 6f 6f |ending;.|.var boo|
|00000240| 6c 09 09 62 43 6f 6e 74 | 72 6f 6c 44 6f 77 6e 3b |l..bCont|rolDown;|
|00000250| 0d 0a 76 61 72 20 62 6f | 6f 6c 09 09 62 53 68 69 |..var bo|ol..bShi|
|00000260| 66 74 44 6f 77 6e 3b 0d | 0a 76 61 72 20 62 6f 6f |ftDown;.|.var boo|
|00000270| 6c 09 09 62 48 69 73 74 | 6f 72 79 3b 0d 0a 76 61 |l..bHist|ory;..va|
|00000280| 72 20 62 6f 6f 6c 09 09 | 62 4b 65 79 44 6f 77 6e |r bool..|bKeyDown|
|00000290| 3b 0d 0a 76 61 72 20 55 | 57 69 6e 64 6f 77 45 64 |;..var U|WindowEd|
|000002a0| 69 74 42 6f 78 48 69 73 | 74 6f 72 79 09 48 69 73 |itBoxHis|tory.His|
|000002b0| 74 6f 72 79 4c 69 73 74 | 3b 0d 0a 76 61 72 20 55 |toryList|;..var U|
|000002c0| 57 69 6e 64 6f 77 45 64 | 69 74 42 6f 78 48 69 73 |WindowEd|itBoxHis|
|000002d0| 74 6f 72 79 09 43 75 72 | 72 65 6e 74 48 69 73 74 |tory.Cur|rentHist|
|000002e0| 6f 72 79 3b 0d 0a 0d 0a | 66 75 6e 63 74 69 6f 6e |ory;....|function|
|000002f0| 20 43 72 65 61 74 65 64 | 28 29 0d 0a 7b 0d 0a 09 | Created|()..{...|
|00000300| 53 75 70 65 72 2e 43 72 | 65 61 74 65 64 28 29 3b |Super.Cr|eated();|
|00000310| 0d 0a 09 62 43 61 6e 45 | 64 69 74 20 3d 20 54 72 |...bCanE|dit = Tr|
|00000320| 75 65 3b 0d 0a 09 62 43 | 6f 6e 74 72 6f 6c 44 6f |ue;...bC|ontrolDo|
|00000330| 77 6e 20 3d 20 46 61 6c | 73 65 3b 0d 0a 09 62 53 |wn = Fal|se;...bS|
|00000340| 68 69 66 74 44 6f 77 6e | 20 3d 20 46 61 6c 73 65 |hiftDown| = False|
|00000350| 3b 0d 0a 0d 0a 09 4d 61 | 78 4c 65 6e 67 74 68 20 |;.....Ma|xLength |
|00000360| 3d 20 32 35 35 3b 0d 0a | 09 43 61 72 65 74 4f 66 |= 255;..|.CaretOf|
|00000370| 66 73 65 74 20 3d 20 30 | 3b 0d 0a 09 4f 66 66 73 |fset = 0|;...Offs|
|00000380| 65 74 20 3d 20 30 3b 0d | 0a 09 4c 61 73 74 44 72 |et = 0;.|..LastDr|
|00000390| 61 77 54 69 6d 65 20 3d | 20 30 2e 30 3b 0d 0a 7d |awTime =| 0.0;..}|
|000003a0| 0d 0a 0d 0a 66 75 6e 63 | 74 69 6f 6e 20 53 65 74 |....func|tion Set|
|000003b0| 48 69 73 74 6f 72 79 28 | 62 6f 6f 6c 20 62 49 6e |History(|bool bIn|
|000003c0| 48 69 73 74 6f 72 79 29 | 0d 0a 7b 0d 0a 09 62 48 |History)|..{...bH|
|000003d0| 69 73 74 6f 72 79 20 3d | 20 62 49 6e 48 69 73 74 |istory =| bInHist|
|000003e0| 6f 72 79 3b 0d 0a 0d 0a | 09 69 66 28 62 48 69 73 |ory;....|.if(bHis|
|000003f0| 74 6f 72 79 20 26 26 20 | 48 69 73 74 6f 72 79 4c |tory && |HistoryL|
|00000400| 69 73 74 3d 3d 4e 6f 6e | 65 29 0d 0a 09 7b 0d 0a |ist==Non|e)...{..|
|00000410| 09 09 48 69 73 74 6f 72 | 79 4c 69 73 74 20 3d 20 |..Histor|yList = |
|00000420| 6e 65 77 28 4e 6f 6e 65 | 29 20 63 6c 61 73 73 27 |new(None|) class'|
|00000430| 55 57 69 6e 64 6f 77 45 | 64 69 74 42 6f 78 48 69 |UWindowE|ditBoxHi|
|00000440| 73 74 6f 72 79 27 3b 0d | 0a 09 09 48 69 73 74 6f |story';.|...Histo|
|00000450| 72 79 4c 69 73 74 2e 53 | 65 74 75 70 53 65 6e 74 |ryList.S|etupSent|
|00000460| 69 6e 65 6c 28 29 3b 0d | 0a 09 09 43 75 72 72 65 |inel();.|...Curre|
|00000470| 6e 74 48 69 73 74 6f 72 | 79 20 3d 20 4e 6f 6e 65 |ntHistor|y = None|
|00000480| 3b 0d 0a 09 7d 0d 0a 09 | 65 6c 73 65 0d 0a 09 69 |;...}...|else...i|
|00000490| 66 28 21 62 48 69 73 74 | 6f 72 79 20 26 26 20 48 |f(!bHist|ory && H|
|000004a0| 69 73 74 6f 72 79 4c 69 | 73 74 21 3d 4e 6f 6e 65 |istoryLi|st!=None|
|000004b0| 29 0d 0a 09 7b 0d 0a 09 | 09 48 69 73 74 6f 72 79 |)...{...|.History|
|000004c0| 4c 69 73 74 20 3d 20 4e | 6f 6e 65 3b 0d 0a 09 09 |List = N|one;....|
|000004d0| 43 75 72 72 65 6e 74 48 | 69 73 74 6f 72 79 20 3d |CurrentH|istory =|
|000004e0| 20 4e 6f 6e 65 3b 0d 0a | 09 7d 0d 0a 7d 0d 0a 0d | None;..|.}..}...|
|000004f0| 0a 66 75 6e 63 74 69 6f | 6e 20 53 65 74 45 64 69 |.functio|n SetEdi|
|00000500| 74 61 62 6c 65 28 62 6f | 6f 6c 20 62 45 64 69 74 |table(bo|ol bEdit|
|00000510| 61 62 6c 65 29 0d 0a 7b | 0d 0a 09 62 43 61 6e 45 |able)..{|...bCanE|
|00000520| 64 69 74 20 3d 20 62 45 | 64 69 74 61 62 6c 65 3b |dit = bE|ditable;|
|00000530| 0d 0a 7d 0d 0a 0d 0a 66 | 75 6e 63 74 69 6f 6e 20 |..}....f|unction |
|00000540| 53 65 74 56 61 6c 75 65 | 28 73 74 72 69 6e 67 20 |SetValue|(string |
|00000550| 4e 65 77 56 61 6c 75 65 | 2c 20 6f 70 74 69 6f 6e |NewValue|, option|
|00000560| 61 6c 20 73 74 72 69 6e | 67 20 4e 65 77 56 61 6c |al strin|g NewVal|
|00000570| 75 65 32 29 0d 0a 7b 0d | 0a 09 56 61 6c 75 65 20 |ue2)..{.|..Value |
|00000580| 3d 20 4e 65 77 56 61 6c | 75 65 3b 0d 0a 09 56 61 |= NewVal|ue;...Va|
|00000590| 6c 75 65 32 20 3d 20 4e | 65 77 56 61 6c 75 65 32 |lue2 = N|ewValue2|
|000005a0| 3b 0d 0a 0d 0a 09 69 66 | 28 43 61 72 65 74 4f 66 |;.....if|(CaretOf|
|000005b0| 66 73 65 74 20 3e 20 4c | 65 6e 28 56 61 6c 75 65 |fset > L|en(Value|
|000005c0| 29 29 0d 0a 09 09 43 61 | 72 65 74 4f 66 66 73 65 |))....Ca|retOffse|
|000005d0| 74 20 3d 20 4c 65 6e 28 | 56 61 6c 75 65 29 3b 09 |t = Len(|Value);.|
|000005e0| 09 0d 0a 09 4e 6f 74 69 | 66 79 28 44 45 5f 43 68 |....Noti|fy(DE_Ch|
|000005f0| 61 6e 67 65 29 3b 0d 0a | 7d 0d 0a 0d 0a 66 75 6e |ange);..|}....fun|
|00000600| 63 74 69 6f 6e 20 43 6c | 65 61 72 28 29 0d 0a 7b |ction Cl|ear()..{|
|00000610| 0d 0a 09 43 61 72 65 74 | 4f 66 66 73 65 74 20 3d |...Caret|Offset =|
|00000620| 20 30 3b 0d 0a 09 56 61 | 6c 75 65 3d 22 22 3b 0d | 0;...Va|lue="";.|
|00000630| 0a 09 56 61 6c 75 65 32 | 3d 22 22 3b 0d 0a 09 62 |..Value2|="";...b|
|00000640| 41 6c 6c 53 65 6c 65 63 | 74 65 64 20 3d 20 46 61 |AllSelec|ted = Fa|
|00000650| 6c 73 65 3b 0d 0a 09 69 | 66 28 62 44 65 6c 61 79 |lse;...i|f(bDelay|
|00000660| 65 64 4e 6f 74 69 66 79 | 29 0d 0a 09 09 62 43 68 |edNotify|)....bCh|
|00000670| 61 6e 67 65 50 65 6e 64 | 69 6e 67 20 3d 20 54 72 |angePend|ing = Tr|
|00000680| 75 65 3b 0d 0a 09 65 6c | 73 65 0d 0a 09 09 4e 6f |ue;...el|se....No|
|00000690| 74 69 66 79 28 44 45 5f | 43 68 61 6e 67 65 29 3b |tify(DE_|Change);|
|000006a0| 0d 0a 7d 0d 0a 0d 0a 66 | 75 6e 63 74 69 6f 6e 20 |..}....f|unction |
|000006b0| 53 65 6c 65 63 74 41 6c | 6c 28 29 0d 0a 7b 0d 0a |SelectAl|l()..{..|
|000006c0| 09 69 66 28 62 43 61 6e | 45 64 69 74 20 26 26 20 |.if(bCan|Edit && |
|000006d0| 56 61 6c 75 65 20 21 3d | 20 22 22 29 0d 0a 09 7b |Value !=| "")...{|
|000006e0| 0d 0a 09 09 43 61 72 65 | 74 4f 66 66 73 65 74 20 |....Care|tOffset |
|000006f0| 3d 20 4c 65 6e 28 56 61 | 6c 75 65 29 3b 0d 0a 09 |= Len(Va|lue);...|
|00000700| 09 62 41 6c 6c 53 65 6c | 65 63 74 65 64 20 3d 20 |.bAllSel|ected = |
|00000710| 54 72 75 65 3b 0d 0a 09 | 7d 0d 0a 7d 0d 0a 0d 0a |True;...|}..}....|
|00000720| 66 75 6e 63 74 69 6f 6e | 20 73 74 72 69 6e 67 20 |function| string |
|00000730| 47 65 74 56 61 6c 75 65 | 28 29 0d 0a 7b 0d 0a 09 |GetValue|()..{...|
|00000740| 72 65 74 75 72 6e 20 56 | 61 6c 75 65 3b 0d 0a 7d |return V|alue;..}|
|00000750| 0d 0a 0d 0a 66 75 6e 63 | 74 69 6f 6e 20 73 74 72 |....func|tion str|
|00000760| 69 6e 67 20 47 65 74 56 | 61 6c 75 65 32 28 29 0d |ing GetV|alue2().|
|00000770| 0a 7b 0d 0a 09 72 65 74 | 75 72 6e 20 56 61 6c 75 |.{...ret|urn Valu|
|00000780| 65 32 3b 0d 0a 7d 0d 0a | 0d 0a 66 75 6e 63 74 69 |e2;..}..|..functi|
|00000790| 6f 6e 20 4e 6f 74 69 66 | 79 28 62 79 74 65 20 45 |on Notif|y(byte E|
|000007a0| 29 0d 0a 7b 0d 0a 09 69 | 66 28 4e 6f 74 69 66 79 |)..{...i|f(Notify|
|000007b0| 4f 77 6e 65 72 20 21 3d | 20 4e 6f 6e 65 29 0d 0a |Owner !=| None)..|
|000007c0| 09 7b 0d 0a 09 09 4e 6f | 74 69 66 79 4f 77 6e 65 |.{....No|tifyOwne|
|000007d0| 72 2e 4e 6f 74 69 66 79 | 28 45 29 3b 0d 0a 09 7d |r.Notify|(E);...}|
|000007e0| 20 65 6c 73 65 20 7b 0d | 0a 09 09 53 75 70 65 72 | else {.|...Super|
|000007f0| 2e 4e 6f 74 69 66 79 28 | 45 29 3b 0d 0a 09 7d 0d |.Notify(|E);...}.|
|00000800| 0a 7d 0d 0a 0d 0a 66 75 | 6e 63 74 69 6f 6e 20 49 |.}....fu|nction I|
|00000810| 6e 73 65 72 74 54 65 78 | 74 28 73 74 72 69 6e 67 |nsertTex|t(string|
|00000820| 20 54 65 78 74 29 0d 0a | 7b 0d 0a 09 6c 6f 63 61 | Text)..|{...loca|
|00000830| 6c 20 69 6e 74 20 69 3b | 0d 0a 0d 0a 09 66 6f 72 |l int i;|.....for|
|00000840| 28 69 3d 30 3b 69 3c 4c | 65 6e 28 54 65 78 74 29 |(i=0;i<L|en(Text)|
|00000850| 3b 69 2b 2b 29 0d 0a 09 | 09 49 6e 73 65 72 74 28 |;i++)...|.Insert(|
|00000860| 41 73 63 28 4d 69 64 28 | 54 65 78 74 2c 69 2c 31 |Asc(Mid(|Text,i,1|
|00000870| 29 29 29 3b 0d 0a 7d 0d | 0a 0d 0a 2f 2f 20 49 6e |)));..}.|...// In|
|00000880| 73 65 72 74 73 20 61 20 | 63 68 61 72 61 63 74 65 |serts a |characte|
|00000890| 72 20 61 74 20 74 68 65 | 20 63 75 72 72 65 6e 74 |r at the| current|
|000008a0| 20 63 61 72 65 74 20 70 | 6f 73 69 74 69 6f 6e 0d | caret p|osition.|
|000008b0| 0a 66 75 6e 63 74 69 6f | 6e 20 62 6f 6f 6c 20 49 |.functio|n bool I|
|000008c0| 6e 73 65 72 74 28 62 79 | 74 65 20 43 29 0d 0a 7b |nsert(by|te C)..{|
|000008d0| 0d 0a 09 6c 6f 63 61 6c | 20 73 74 72 69 6e 67 09 |...local| string.|
|000008e0| 4e 65 77 56 61 6c 75 65 | 3b 0d 0a 0d 0a 09 4e 65 |NewValue|;.....Ne|
|000008f0| 77 56 61 6c 75 65 20 3d | 20 4c 65 66 74 28 56 61 |wValue =| Left(Va|
|00000900| 6c 75 65 2c 20 43 61 72 | 65 74 4f 66 66 73 65 74 |lue, Car|etOffset|
|00000910| 29 20 24 20 43 68 72 28 | 43 29 20 24 20 4d 69 64 |) $ Chr(|C) $ Mid|
|00000920| 28 56 61 6c 75 65 2c 20 | 43 61 72 65 74 4f 66 66 |(Value, |CaretOff|
|00000930| 73 65 74 29 3b 0d 0a 0d | 0a 09 69 66 28 4c 65 6e |set);...|..if(Len|
|00000940| 28 4e 65 77 56 61 6c 75 | 65 29 20 3e 20 4d 61 78 |(NewValu|e) > Max|
|00000950| 4c 65 6e 67 74 68 29 20 | 0d 0a 09 09 72 65 74 75 |Length) |....retu|
|00000960| 72 6e 20 46 61 6c 73 65 | 3b 0d 0a 0d 0a 09 43 61 |rn False|;.....Ca|
|00000970| 72 65 74 4f 66 66 73 65 | 74 2b 2b 3b 0d 0a 0d 0a |retOffse|t++;....|
|00000980| 09 56 61 6c 75 65 20 3d | 20 4e 65 77 56 61 6c 75 |.Value =| NewValu|
|00000990| 65 3b 0d 0a 09 69 66 28 | 62 44 65 6c 61 79 65 64 |e;...if(|bDelayed|
|000009a0| 4e 6f 74 69 66 79 29 0d | 0a 09 09 62 43 68 61 6e |Notify).|...bChan|
|000009b0| 67 65 50 65 6e 64 69 6e | 67 20 3d 20 54 72 75 65 |gePendin|g = True|
|000009c0| 3b 0d 0a 09 65 6c 73 65 | 0d 0a 09 09 4e 6f 74 69 |;...else|....Noti|
|000009d0| 66 79 28 44 45 5f 43 68 | 61 6e 67 65 29 3b 0d 0a |fy(DE_Ch|ange);..|
|000009e0| 09 72 65 74 75 72 6e 20 | 54 72 75 65 3b 0d 0a 7d |.return |True;..}|
|000009f0| 0d 0a 0d 0a 66 75 6e 63 | 74 69 6f 6e 20 62 6f 6f |....func|tion boo|
|00000a00| 6c 20 42 61 63 6b 73 70 | 61 63 65 28 29 0d 0a 7b |l Backsp|ace()..{|
|00000a10| 0d 0a 09 6c 6f 63 61 6c | 20 73 74 72 69 6e 67 09 |...local| string.|
|00000a20| 4e 65 77 56 61 6c 75 65 | 3b 0d 0a 0d 0a 09 69 66 |NewValue|;.....if|
|00000a30| 28 43 61 72 65 74 4f 66 | 66 73 65 74 20 3d 3d 20 |(CaretOf|fset == |
|00000a40| 30 29 20 72 65 74 75 72 | 6e 20 46 61 6c 73 65 3b |0) retur|n False;|
|00000a50| 0d 0a 0d 0a 09 4e 65 77 | 56 61 6c 75 65 20 3d 20 |.....New|Value = |
|00000a60| 4c 65 66 74 28 56 61 6c | 75 65 2c 20 43 61 72 65 |Left(Val|ue, Care|
|00000a70| 74 4f 66 66 73 65 74 20 | 2d 20 31 29 20 24 20 4d |tOffset |- 1) $ M|
|00000a80| 69 64 28 56 61 6c 75 65 | 2c 20 43 61 72 65 74 4f |id(Value|, CaretO|
|00000a90| 66 66 73 65 74 29 3b 0d | 0a 09 43 61 72 65 74 4f |ffset);.|..CaretO|
|00000aa0| 66 66 73 65 74 2d 2d 3b | 0d 0a 0d 0a 09 56 61 6c |ffset--;|.....Val|
|00000ab0| 75 65 20 3d 20 4e 65 77 | 56 61 6c 75 65 3b 0d 0a |ue = New|Value;..|
|00000ac0| 09 69 66 28 62 44 65 6c | 61 79 65 64 4e 6f 74 69 |.if(bDel|ayedNoti|
|00000ad0| 66 79 29 0d 0a 09 09 62 | 43 68 61 6e 67 65 50 65 |fy)....b|ChangePe|
|00000ae0| 6e 64 69 6e 67 20 3d 20 | 54 72 75 65 3b 0d 0a 09 |nding = |True;...|
|00000af0| 65 6c 73 65 0d 0a 09 09 | 4e 6f 74 69 66 79 28 44 |else....|Notify(D|
|00000b00| 45 5f 43 68 61 6e 67 65 | 29 3b 0d 0a 09 72 65 74 |E_Change|);...ret|
|00000b10| 75 72 6e 20 54 72 75 65 | 3b 0d 0a 7d 0d 0a 0d 0a |urn True|;..}....|
|00000b20| 66 75 6e 63 74 69 6f 6e | 20 62 6f 6f 6c 20 44 65 |function| bool De|
|00000b30| 6c 65 74 65 28 29 0d 0a | 7b 0d 0a 09 6c 6f 63 61 |lete()..|{...loca|
|00000b40| 6c 20 73 74 72 69 6e 67 | 09 4e 65 77 56 61 6c 75 |l string|.NewValu|
|00000b50| 65 3b 0d 0a 0d 0a 09 69 | 66 28 43 61 72 65 74 4f |e;.....i|f(CaretO|
|00000b60| 66 66 73 65 74 20 3d 3d | 20 4c 65 6e 28 56 61 6c |ffset ==| Len(Val|
|00000b70| 75 65 29 29 20 72 65 74 | 75 72 6e 20 46 61 6c 73 |ue)) ret|urn Fals|
|00000b80| 65 3b 0d 0a 0d 0a 09 4e | 65 77 56 61 6c 75 65 20 |e;.....N|ewValue |
|00000b90| 3d 20 4c 65 66 74 28 56 | 61 6c 75 65 2c 20 43 61 |= Left(V|alue, Ca|
|00000ba0| 72 65 74 4f 66 66 73 65 | 74 29 20 24 20 4d 69 64 |retOffse|t) $ Mid|
|00000bb0| 28 56 61 6c 75 65 2c 20 | 43 61 72 65 74 4f 66 66 |(Value, |CaretOff|
|00000bc0| 73 65 74 20 2b 20 31 29 | 3b 0d 0a 0d 0a 09 56 61 |set + 1)|;.....Va|
|00000bd0| 6c 75 65 20 3d 20 4e 65 | 77 56 61 6c 75 65 3b 0d |lue = Ne|wValue;.|
|00000be0| 0a 09 4e 6f 74 69 66 79 | 28 44 45 5f 43 68 61 6e |..Notify|(DE_Chan|
|00000bf0| 67 65 29 3b 0d 0a 09 72 | 65 74 75 72 6e 20 54 72 |ge);...r|eturn Tr|
|00000c00| 75 65 3b 0d 0a 7d 0d 0a | 0d 0a 66 75 6e 63 74 69 |ue;..}..|..functi|
|00000c10| 6f 6e 20 62 6f 6f 6c 20 | 57 6f 72 64 4c 65 66 74 |on bool |WordLeft|
|00000c20| 28 29 0d 0a 7b 0d 0a 09 | 77 68 69 6c 65 28 43 61 |()..{...|while(Ca|
|00000c30| 72 65 74 4f 66 66 73 65 | 74 20 3e 20 30 20 26 26 |retOffse|t > 0 &&|
|00000c40| 20 4d 69 64 28 56 61 6c | 75 65 2c 20 43 61 72 65 | Mid(Val|ue, Care|
|00000c50| 74 4f 66 66 73 65 74 20 | 2d 20 31 2c 20 31 29 20 |tOffset |- 1, 1) |
|00000c60| 3d 3d 20 22 20 22 29 0d | 0a 09 09 43 61 72 65 74 |== " ").|...Caret|
|00000c70| 4f 66 66 73 65 74 2d 2d | 3b 0d 0a 09 77 68 69 6c |Offset--|;...whil|
|00000c80| 65 28 43 61 72 65 74 4f | 66 66 73 65 74 20 3e 20 |e(CaretO|ffset > |
|00000c90| 30 20 26 26 20 4d 69 64 | 28 56 61 6c 75 65 2c 20 |0 && Mid|(Value, |
|00000ca0| 43 61 72 65 74 4f 66 66 | 73 65 74 20 2d 20 31 2c |CaretOff|set - 1,|
|00000cb0| 20 31 29 20 21 3d 20 22 | 20 22 29 0d 0a 09 09 43 | 1) != "| ")....C|
|00000cc0| 61 72 65 74 4f 66 66 73 | 65 74 2d 2d 3b 0d 0a 0d |aretOffs|et--;...|
|00000cd0| 0a 09 4c 61 73 74 44 72 | 61 77 54 69 6d 65 20 3d |..LastDr|awTime =|
|00000ce0| 20 47 65 74 4c 65 76 65 | 6c 28 29 2e 54 69 6d 65 | GetLeve|l().Time|
|00000cf0| 53 65 63 6f 6e 64 73 3b | 0d 0a 09 62 53 68 6f 77 |Seconds;|...bShow|
|00000d00| 43 61 72 65 74 20 3d 20 | 54 72 75 65 3b 0d 0a 0d |Caret = |True;...|
|00000d10| 0a 09 72 65 74 75 72 6e | 20 54 72 75 65 3b 09 0d |..return| True;..|
|00000d20| 0a 7d 0d 0a 0d 0a 66 75 | 6e 63 74 69 6f 6e 20 62 |.}....fu|nction b|
|00000d30| 6f 6f 6c 20 4d 6f 76 65 | 4c 65 66 74 28 29 0d 0a |ool Move|Left()..|
|00000d40| 7b 0d 0a 09 69 66 28 43 | 61 72 65 74 4f 66 66 73 |{...if(C|aretOffs|
|00000d50| 65 74 20 3d 3d 20 30 29 | 20 72 65 74 75 72 6e 20 |et == 0)| return |
|00000d60| 46 61 6c 73 65 3b 0d 0a | 09 43 61 72 65 74 4f 66 |False;..|.CaretOf|
|00000d70| 66 73 65 74 2d 2d 3b 0d | 0a 0d 0a 09 4c 61 73 74 |fset--;.|....Last|
|00000d80| 44 72 61 77 54 69 6d 65 | 20 3d 20 47 65 74 4c 65 |DrawTime| = GetLe|
|00000d90| 76 65 6c 28 29 2e 54 69 | 6d 65 53 65 63 6f 6e 64 |vel().Ti|meSecond|
|00000da0| 73 3b 0d 0a 09 62 53 68 | 6f 77 43 61 72 65 74 20 |s;...bSh|owCaret |
|00000db0| 3d 20 54 72 75 65 3b 0d | 0a 0d 0a 09 72 65 74 75 |= True;.|....retu|
|00000dc0| 72 6e 20 54 72 75 65 3b | 09 0d 0a 7d 0d 0a 0d 0a |rn True;|...}....|
|00000dd0| 66 75 6e 63 74 69 6f 6e | 20 62 6f 6f 6c 20 4d 6f |function| bool Mo|
|00000de0| 76 65 52 69 67 68 74 28 | 29 0d 0a 7b 0d 0a 09 69 |veRight(|)..{...i|
|00000df0| 66 28 43 61 72 65 74 4f | 66 66 73 65 74 20 3d 3d |f(CaretO|ffset ==|
|00000e00| 20 4c 65 6e 28 56 61 6c | 75 65 29 29 20 72 65 74 | Len(Val|ue)) ret|
|00000e10| 75 72 6e 20 46 61 6c 73 | 65 3b 0d 0a 09 43 61 72 |urn Fals|e;...Car|
|00000e20| 65 74 4f 66 66 73 65 74 | 2b 2b 3b 0d 0a 0d 0a 09 |etOffset|++;.....|
|00000e30| 4c 61 73 74 44 72 61 77 | 54 69 6d 65 20 3d 20 47 |LastDraw|Time = G|
|00000e40| 65 74 4c 65 76 65 6c 28 | 29 2e 54 69 6d 65 53 65 |etLevel(|).TimeSe|
|00000e50| 63 6f 6e 64 73 3b 0d 0a | 09 62 53 68 6f 77 43 61 |conds;..|.bShowCa|
|00000e60| 72 65 74 20 3d 20 54 72 | 75 65 3b 0d 0a 0d 0a 09 |ret = Tr|ue;.....|
|00000e70| 72 65 74 75 72 6e 20 54 | 72 75 65 3b 09 0d 0a 7d |return T|rue;...}|
|00000e80| 0d 0a 0d 0a 66 75 6e 63 | 74 69 6f 6e 20 62 6f 6f |....func|tion boo|
|00000e90| 6c 20 57 6f 72 64 52 69 | 67 68 74 28 29 0d 0a 7b |l WordRi|ght()..{|
|00000ea0| 0d 0a 09 77 68 69 6c 65 | 28 43 61 72 65 74 4f 66 |...while|(CaretOf|
|00000eb0| 66 73 65 74 20 3c 20 4c | 65 6e 28 56 61 6c 75 65 |fset < L|en(Value|
|00000ec0| 29 20 26 26 20 4d 69 64 | 28 56 61 6c 75 65 2c 20 |) && Mid|(Value, |
|00000ed0| 43 61 72 65 74 4f 66 66 | 73 65 74 2c 20 31 29 20 |CaretOff|set, 1) |
|00000ee0| 21 3d 20 22 20 22 29 0d | 0a 09 09 43 61 72 65 74 |!= " ").|...Caret|
|00000ef0| 4f 66 66 73 65 74 2b 2b | 3b 0d 0a 09 77 68 69 6c |Offset++|;...whil|
|00000f00| 65 28 43 61 72 65 74 4f | 66 66 73 65 74 20 3c 20 |e(CaretO|ffset < |
|00000f10| 4c 65 6e 28 56 61 6c 75 | 65 29 20 26 26 20 4d 69 |Len(Valu|e) && Mi|
|00000f20| 64 28 56 61 6c 75 65 2c | 20 43 61 72 65 74 4f 66 |d(Value,| CaretOf|
|00000f30| 66 73 65 74 2c 20 31 29 | 20 3d 3d 20 22 20 22 29 |fset, 1)| == " ")|
|00000f40| 0d 0a 09 09 43 61 72 65 | 74 4f 66 66 73 65 74 2b |....Care|tOffset+|
|00000f50| 2b 3b 0d 0a 0d 0a 09 4c | 61 73 74 44 72 61 77 54 |+;.....L|astDrawT|
|00000f60| 69 6d 65 20 3d 20 47 65 | 74 4c 65 76 65 6c 28 29 |ime = Ge|tLevel()|
|00000f70| 2e 54 69 6d 65 53 65 63 | 6f 6e 64 73 3b 0d 0a 09 |.TimeSec|onds;...|
|00000f80| 62 53 68 6f 77 43 61 72 | 65 74 20 3d 20 54 72 75 |bShowCar|et = Tru|
|00000f90| 65 3b 0d 0a 0d 0a 09 72 | 65 74 75 72 6e 20 54 72 |e;.....r|eturn Tr|
|00000fa0| 75 65 3b 09 0d 0a 7d 0d | 0a 0d 0a 66 75 6e 63 74 |ue;...}.|...funct|
|00000fb0| 69 6f 6e 20 62 6f 6f 6c | 20 4d 6f 76 65 48 6f 6d |ion bool| MoveHom|
|00000fc0| 65 28 29 0d 0a 7b 0d 0a | 09 43 61 72 65 74 4f 66 |e()..{..|.CaretOf|
|00000fd0| 66 73 65 74 20 3d 20 30 | 3b 0d 0a 0d 0a 09 4c 61 |fset = 0|;.....La|
|00000fe0| 73 74 44 72 61 77 54 69 | 6d 65 20 3d 20 47 65 74 |stDrawTi|me = Get|
|00000ff0| 4c 65 76 65 6c 28 29 2e | 54 69 6d 65 53 65 63 6f |Level().|TimeSeco|
|00001000| 6e 64 73 3b 0d 0a 09 62 | 53 68 6f 77 43 61 72 65 |nds;...b|ShowCare|
|00001010| 74 20 3d 20 54 72 75 65 | 3b 0d 0a 0d 0a 09 72 65 |t = True|;.....re|
|00001020| 74 75 72 6e 20 54 72 75 | 65 3b 09 0d 0a 7d 0d 0a |turn Tru|e;...}..|
|00001030| 0d 0a 66 75 6e 63 74 69 | 6f 6e 20 62 6f 6f 6c 20 |..functi|on bool |
|00001040| 4d 6f 76 65 45 6e 64 28 | 29 0d 0a 7b 0d 0a 09 43 |MoveEnd(|)..{...C|
|00001050| 61 72 65 74 4f 66 66 73 | 65 74 20 3d 20 4c 65 6e |aretOffs|et = Len|
|00001060| 28 56 61 6c 75 65 29 3b | 0d 0a 0d 0a 09 4c 61 73 |(Value);|.....Las|
|00001070| 74 44 72 61 77 54 69 6d | 65 20 3d 20 47 65 74 4c |tDrawTim|e = GetL|
|00001080| 65 76 65 6c 28 29 2e 54 | 69 6d 65 53 65 63 6f 6e |evel().T|imeSecon|
|00001090| 64 73 3b 0d 0a 09 62 53 | 68 6f 77 43 61 72 65 74 |ds;...bS|howCaret|
|000010a0| 20 3d 20 54 72 75 65 3b | 0d 0a 0d 0a 09 72 65 74 | = True;|.....ret|
|000010b0| 75 72 6e 20 54 72 75 65 | 3b 09 0d 0a 7d 0d 0a 0d |urn True|;...}...|
|000010c0| 0a 66 75 6e 63 74 69 6f | 6e 20 45 64 69 74 43 6f |.functio|n EditCo|
|000010d0| 70 79 28 29 0d 0a 7b 0d | 0a 09 69 66 28 62 41 6c |py()..{.|..if(bAl|
|000010e0| 6c 53 65 6c 65 63 74 65 | 64 20 7c 7c 20 21 62 43 |lSelecte|d || !bC|
|000010f0| 61 6e 45 64 69 74 29 0d | 0a 09 09 47 65 74 50 6c |anEdit).|...GetPl|
|00001100| 61 79 65 72 4f 77 6e 65 | 72 28 29 2e 43 6f 70 79 |ayerOwne|r().Copy|
|00001110| 54 6f 43 6c 69 70 62 6f | 61 72 64 28 56 61 6c 75 |ToClipbo|ard(Valu|
|00001120| 65 29 3b 0d 0a 7d 0d 0a | 0d 0a 66 75 6e 63 74 69 |e);..}..|..functi|
|00001130| 6f 6e 20 45 64 69 74 50 | 61 73 74 65 28 29 0d 0a |on EditP|aste()..|
|00001140| 7b 0d 0a 09 69 66 28 62 | 43 61 6e 45 64 69 74 29 |{...if(b|CanEdit)|
|00001150| 0d 0a 09 7b 0d 0a 09 09 | 69 66 28 62 41 6c 6c 53 |...{....|if(bAllS|
|00001160| 65 6c 65 63 74 65 64 29 | 0d 0a 09 09 09 43 6c 65 |elected)|.....Cle|
|00001170| 61 72 28 29 3b 0d 0a 09 | 09 49 6e 73 65 72 74 54 |ar();...|.InsertT|
|00001180| 65 78 74 28 47 65 74 50 | 6c 61 79 65 72 4f 77 6e |ext(GetP|layerOwn|
|00001190| 65 72 28 29 2e 50 61 73 | 74 65 46 72 6f 6d 43 6c |er().Pas|teFromCl|
|000011a0| 69 70 62 6f 61 72 64 28 | 29 29 3b 0d 0a 09 7d 0d |ipboard(|));...}.|
|000011b0| 0a 7d 0d 0a 0d 0a 66 75 | 6e 63 74 69 6f 6e 20 45 |.}....fu|nction E|
|000011c0| 64 69 74 43 75 74 28 29 | 0d 0a 7b 0d 0a 09 69 66 |ditCut()|..{...if|
|000011d0| 28 62 43 61 6e 45 64 69 | 74 29 0d 0a 09 7b 0d 0a |(bCanEdi|t)...{..|
|000011e0| 09 09 69 66 28 62 41 6c | 6c 53 65 6c 65 63 74 65 |..if(bAl|lSelecte|
|000011f0| 64 29 0d 0a 09 09 7b 0d | 0a 09 09 09 47 65 74 50 |d)....{.|....GetP|
|00001200| 6c 61 79 65 72 4f 77 6e | 65 72 28 29 2e 43 6f 70 |layerOwn|er().Cop|
|00001210| 79 54 6f 43 6c 69 70 62 | 6f 61 72 64 28 56 61 6c |yToClipb|oard(Val|
|00001220| 75 65 29 3b 0d 0a 09 09 | 09 62 41 6c 6c 53 65 6c |ue);....|.bAllSel|
|00001230| 65 63 74 65 64 20 3d 20 | 46 61 6c 73 65 3b 0d 0a |ected = |False;..|
|00001240| 09 09 09 43 6c 65 61 72 | 28 29 3b 0d 0a 09 09 7d |...Clear|();....}|
|00001250| 0d 0a 09 7d 0d 0a 09 65 | 6c 73 65 0d 0a 09 09 45 |...}...e|lse....E|
|00001260| 64 69 74 43 6f 70 79 28 | 29 3b 0d 0a 7d 0d 0a 0d |ditCopy(|);..}...|
|00001270| 0a 66 75 6e 63 74 69 6f | 6e 20 4b 65 79 50 72 65 |.functio|n KeyPre|
|00001280| 73 73 65 64 28 20 69 6e | 74 20 4b 65 79 2c 20 66 |ssed( in|t Key, f|
|00001290| 6c 6f 61 74 20 4d 6f 75 | 73 65 58 2c 20 66 6c 6f |loat Mou|seX, flo|
|000012a0| 61 74 20 4d 6f 75 73 65 | 59 20 29 0d 0a 7b 0d 0a |at Mouse|Y )..{..|
|000012b0| 09 69 66 28 62 43 61 6e | 45 64 69 74 20 26 26 20 |.if(bCan|Edit && |
|000012c0| 62 4b 65 79 44 6f 77 6e | 29 0d 0a 09 7b 0d 0a 09 |bKeyDown|)...{...|
|000012d0| 09 69 66 28 20 21 62 43 | 6f 6e 74 72 6f 6c 44 6f |.if( !bC|ontrolDo|
|000012e0| 77 6e 20 29 0d 0a 09 09 | 7b 0d 0a 09 09 09 69 66 |wn )....|{.....if|
|000012f0| 28 62 41 6c 6c 53 65 6c | 65 63 74 65 64 29 0d 0a |(bAllSel|ected)..|
|00001300| 09 09 09 09 43 6c 65 61 | 72 28 29 3b 0d 0a 0d 0a |....Clea|r();....|
|00001310| 09 09 09 62 41 6c 6c 53 | 65 6c 65 63 74 65 64 20 |...bAllS|elected |
|00001320| 3d 20 46 61 6c 73 65 3b | 0d 0a 0d 0a 09 09 09 69 |= False;|.......i|
|00001330| 66 28 62 4e 75 6d 65 72 | 69 63 4f 6e 6c 79 29 0d |f(bNumer|icOnly).|
|00001340| 0a 09 09 09 7b 0d 0a 09 | 09 09 09 69 66 28 20 4b |....{...|...if( K|
|00001350| 65 79 3e 3d 30 78 33 30 | 20 26 26 20 4b 65 79 3c |ey>=0x30| && Key<|
|00001360| 3d 30 78 33 39 20 29 20 | 20 0d 0a 09 09 09 09 7b |=0x39 ) | ......{|
|00001370| 0d 0a 09 09 09 09 09 49 | 6e 73 65 72 74 28 4b 65 |.......I|nsert(Ke|
|00001380| 79 29 3b 0d 0a 09 09 09 | 09 7d 0d 0a 09 09 09 7d |y);.....|.}.....}|
|00001390| 0d 0a 09 09 09 65 6c 73 | 65 0d 0a 09 09 09 7b 0d |.....els|e.....{.|
|000013a0| 0a 09 09 09 09 69 66 28 | 20 4b 65 79 3e 3d 30 78 |.....if(| Key>=0x|
|000013b0| 32 30 20 26 26 20 4b 65 | 79 3c 30 78 38 30 20 29 |20 && Ke|y<0x80 )|
|000013c0| 0d 0a 09 09 09 09 7b 0d | 0a 09 09 09 09 09 49 6e |......{.|......In|
|000013d0| 73 65 72 74 28 4b 65 79 | 29 3b 0d 0a 09 09 09 09 |sert(Key|);......|
|000013e0| 7d 0d 0a 09 09 09 7d 0d | 0a 09 09 7d 0d 0a 09 7d |}.....}.|...}...}|
|000013f0| 0d 0a 7d 0d 0a 0d 0a 66 | 75 6e 63 74 69 6f 6e 20 |..}....f|unction |
|00001400| 4b 65 79 55 70 28 69 6e | 74 20 4b 65 79 2c 20 66 |KeyUp(in|t Key, f|
|00001410| 6c 6f 61 74 20 58 2c 20 | 66 6c 6f 61 74 20 59 29 |loat X, |float Y)|
|00001420| 0d 0a 7b 0d 0a 09 6c 6f | 63 61 6c 20 50 6c 61 79 |..{...lo|cal Play|
|00001430| 65 72 43 6f 6e 74 72 6f | 6c 6c 65 72 20 50 3b 0d |erContro|ller P;.|
|00001440| 0a 09 62 4b 65 79 44 6f | 77 6e 20 3d 20 46 61 6c |..bKeyDo|wn = Fal|
|00001450| 73 65 3b 0d 0a 09 50 20 | 3d 20 47 65 74 50 6c 61 |se;...P |= GetPla|
|00001460| 79 65 72 4f 77 6e 65 72 | 28 29 3b 0d 0a 09 73 77 |yerOwner|();...sw|
|00001470| 69 74 63 68 20 28 4b 65 | 79 29 0d 0a 09 7b 0d 0a |itch (Ke|y)...{..|
|00001480| 09 63 61 73 65 20 50 2e | 50 6c 61 79 65 72 2e 43 |.case P.|Player.C|
|00001490| 6f 6e 73 6f 6c 65 2e 45 | 49 6e 70 75 74 4b 65 79 |onsole.E|InputKey|
|000014a0| 2e 49 4b 5f 43 74 72 6c | 3a 0d 0a 09 09 62 43 6f |.IK_Ctrl|:....bCo|
|000014b0| 6e 74 72 6f 6c 44 6f 77 | 6e 20 3d 20 46 61 6c 73 |ntrolDow|n = Fals|
|000014c0| 65 3b 0d 0a 09 09 62 72 | 65 61 6b 3b 0d 0a 09 63 |e;....br|eak;...c|
|000014d0| 61 73 65 20 50 2e 50 6c | 61 79 65 72 2e 43 6f 6e |ase P.Pl|ayer.Con|
|000014e0| 73 6f 6c 65 2e 45 49 6e | 70 75 74 4b 65 79 2e 49 |sole.EIn|putKey.I|
|000014f0| 4b 5f 53 68 69 66 74 3a | 0d 0a 09 09 62 53 68 69 |K_Shift:|....bShi|
|00001500| 66 74 44 6f 77 6e 20 3d | 20 46 61 6c 73 65 3b 0d |ftDown =| False;.|
|00001510| 0a 09 09 62 72 65 61 6b | 3b 0d 0a 09 7d 0d 0a 7d |...break|;...}..}|
|00001520| 0d 0a 0d 0a 66 75 6e 63 | 74 69 6f 6e 20 4b 65 79 |....func|tion Key|
|00001530| 44 6f 77 6e 28 69 6e 74 | 20 4b 65 79 2c 20 66 6c |Down(int| Key, fl|
|00001540| 6f 61 74 20 58 2c 20 66 | 6c 6f 61 74 20 59 29 0d |oat X, f|loat Y).|
|00001550| 0a 7b 0d 0a 09 62 4b 65 | 79 44 6f 77 6e 20 3d 20 |.{...bKe|yDown = |
|00001560| 54 72 75 65 3b 0d 0a 09 | 0d 0a 09 73 77 69 74 63 |True;...|...switc|
|00001570| 68 20 28 4b 65 79 29 0d | 0a 09 7b 0d 0a 09 63 61 |h (Key).|..{...ca|
|00001580| 73 65 20 30 78 31 31 3a | 0d 0a 09 09 62 43 6f 6e |se 0x11:|....bCon|
|00001590| 74 72 6f 6c 44 6f 77 6e | 20 3d 20 54 72 75 65 3b |trolDown| = True;|
|000015a0| 0d 0a 09 09 62 72 65 61 | 6b 3b 0d 0a 09 63 61 73 |....brea|k;...cas|
|000015b0| 65 20 30 78 31 30 3a 0d | 0a 09 09 62 53 68 69 66 |e 0x10:.|...bShif|
|000015c0| 74 44 6f 77 6e 20 3d 20 | 54 72 75 65 3b 0d 0a 09 |tDown = |True;...|
|000015d0| 09 62 72 65 61 6b 3b 0d | 0a 09 63 61 73 65 20 30 |.break;.|..case 0|
|000015e0| 78 31 42 3a 0d 0a 09 09 | 62 72 65 61 6b 3b 0d 0a |x1B:....|break;..|
|000015f0| 09 63 61 73 65 20 30 78 | 30 44 3a 0d 0a 09 09 69 |.case 0x|0D:....i|
|00001600| 66 28 62 43 61 6e 45 64 | 69 74 29 0d 0a 09 09 7b |f(bCanEd|it)....{|
|00001610| 0d 0a 09 09 09 69 66 28 | 62 48 69 73 74 6f 72 79 |.....if(|bHistory|
|00001620| 29 0d 0a 09 09 09 7b 0d | 0a 09 09 09 09 69 66 28 |).....{.|.....if(|
|00001630| 56 61 6c 75 65 20 21 3d | 20 22 22 29 0d 0a 09 09 |Value !=| "")....|
|00001640| 09 09 7b 0d 0a 09 09 09 | 09 09 43 75 72 72 65 6e |..{.....|..Curren|
|00001650| 74 48 69 73 74 6f 72 79 | 20 3d 20 55 57 69 6e 64 |tHistory| = UWind|
|00001660| 6f 77 45 64 69 74 42 6f | 78 48 69 73 74 6f 72 79 |owEditBo|xHistory|
|00001670| 28 48 69 73 74 6f 72 79 | 4c 69 73 74 2e 49 6e 73 |(History|List.Ins|
|00001680| 65 72 74 28 63 6c 61 73 | 73 27 55 57 69 6e 64 6f |ert(clas|s'UWindo|
|00001690| 77 45 64 69 74 42 6f 78 | 48 69 73 74 6f 72 79 27 |wEditBox|History'|
|000016a0| 29 29 3b 0d 0a 09 09 09 | 09 09 43 75 72 72 65 6e |));.....|..Curren|
|000016b0| 74 48 69 73 74 6f 72 79 | 2e 48 69 73 74 6f 72 79 |tHistory|.History|
|000016c0| 54 65 78 74 20 3d 20 56 | 61 6c 75 65 3b 0d 0a 09 |Text = V|alue;...|
|000016d0| 09 09 09 7d 0d 0a 09 09 | 09 09 43 75 72 72 65 6e |...}....|..Curren|
|000016e0| 74 48 69 73 74 6f 72 79 | 20 3d 20 48 69 73 74 6f |tHistory| = Histo|
|000016f0| 72 79 4c 69 73 74 3b 0d | 0a 09 09 09 7d 0d 0a 09 |ryList;.|....}...|
|00001700| 09 09 4e 6f 74 69 66 79 | 28 44 45 5f 45 6e 74 65 |..Notify|(DE_Ente|
|00001710| 72 50 72 65 73 73 65 64 | 29 3b 0d 0a 09 09 7d 0d |rPressed|);....}.|
|00001720| 0a 09 09 62 72 65 61 6b | 3b 0d 0a 09 63 61 73 65 |...break|;...case|
|00001730| 20 30 78 45 43 3a 0d 0a | 09 09 69 66 28 62 43 61 | 0xEC:..|..if(bCa|
|00001740| 6e 45 64 69 74 29 0d 0a | 09 09 09 4e 6f 74 69 66 |nEdit)..|...Notif|
|00001750| 79 28 44 45 5f 57 68 65 | 65 6c 55 70 50 72 65 73 |y(DE_Whe|elUpPres|
|00001760| 73 65 64 29 3b 0d 0a 09 | 09 62 72 65 61 6b 3b 0d |sed);...|.break;.|
|00001770| 0a 09 63 61 73 65 20 30 | 78 45 44 3a 0d 0a 09 09 |..case 0|xED:....|
|00001780| 69 66 28 62 43 61 6e 45 | 64 69 74 29 0d 0a 09 09 |if(bCanE|dit)....|
|00001790| 09 4e 6f 74 69 66 79 28 | 44 45 5f 57 68 65 65 6c |.Notify(|DE_Wheel|
|000017a0| 44 6f 77 6e 50 72 65 73 | 73 65 64 29 3b 0d 0a 09 |DownPres|sed);...|
|000017b0| 09 62 72 65 61 6b 3b 0d | 0a 0d 0a 09 63 61 73 65 |.break;.|....case|
|000017c0| 20 30 78 32 37 3a 0d 0a | 09 09 69 66 28 62 43 61 | 0x27:..|..if(bCa|
|000017d0| 6e 45 64 69 74 29 20 0d | 0a 09 09 7b 0d 0a 09 09 |nEdit) .|...{....|
|000017e0| 09 69 66 28 62 43 6f 6e | 74 72 6f 6c 44 6f 77 6e |.if(bCon|trolDown|
|000017f0| 29 0d 0a 09 09 09 09 57 | 6f 72 64 52 69 67 68 74 |)......W|ordRight|
|00001800| 28 29 3b 0d 0a 09 09 09 | 65 6c 73 65 0d 0a 09 09 |();.....|else....|
|00001810| 09 09 4d 6f 76 65 52 69 | 67 68 74 28 29 3b 0d 0a |..MoveRi|ght();..|
|00001820| 09 09 7d 0d 0a 09 09 62 | 41 6c 6c 53 65 6c 65 63 |..}....b|AllSelec|
|00001830| 74 65 64 20 3d 20 46 61 | 6c 73 65 3b 0d 0a 09 09 |ted = Fa|lse;....|
|00001840| 62 72 65 61 6b 3b 0d 0a | 09 63 61 73 65 20 30 78 |break;..|.case 0x|
|00001850| 32 35 3a 0d 0a 09 09 69 | 66 28 62 43 61 6e 45 64 |25:....i|f(bCanEd|
|00001860| 69 74 29 0d 0a 09 09 7b | 0d 0a 09 09 09 69 66 28 |it)....{|.....if(|
|00001870| 62 43 6f 6e 74 72 6f 6c | 44 6f 77 6e 29 0d 0a 09 |bControl|Down)...|
|00001880| 09 09 09 57 6f 72 64 4c | 65 66 74 28 29 3b 0d 0a |...WordL|eft();..|
|00001890| 09 09 09 65 6c 73 65 0d | 0a 09 09 09 09 4d 6f 76 |...else.|.....Mov|
|000018a0| 65 4c 65 66 74 28 29 3b | 0d 0a 09 09 7d 0d 0a 09 |eLeft();|....}...|
|000018b0| 09 62 41 6c 6c 53 65 6c | 65 63 74 65 64 20 3d 20 |.bAllSel|ected = |
|000018c0| 46 61 6c 73 65 3b 0d 0a | 09 09 62 72 65 61 6b 3b |False;..|..break;|
|000018d0| 0d 0a 09 63 61 73 65 20 | 30 78 32 36 3a 0d 0a 09 |...case |0x26:...|
|000018e0| 09 69 66 28 62 43 61 6e | 45 64 69 74 20 26 26 20 |.if(bCan|Edit && |
|000018f0| 62 48 69 73 74 6f 72 79 | 29 0d 0a 09 09 7b 0d 0a |bHistory|)....{..|
|00001900| 09 09 09 62 41 6c 6c 53 | 65 6c 65 63 74 65 64 20 |...bAllS|elected |
|00001910| 3d 20 46 61 6c 73 65 3b | 0d 0a 09 09 09 69 66 28 |= False;|.....if(|
|00001920| 43 75 72 72 65 6e 74 48 | 69 73 74 6f 72 79 20 21 |CurrentH|istory !|
|00001930| 3d 20 4e 6f 6e 65 20 26 | 26 20 43 75 72 72 65 6e |= None &|& Curren|
|00001940| 74 48 69 73 74 6f 72 79 | 2e 4e 65 78 74 20 21 3d |tHistory|.Next !=|
|00001950| 20 4e 6f 6e 65 29 0d 0a | 09 09 09 7b 0d 0a 09 09 | None)..|...{....|
|00001960| 09 09 43 75 72 72 65 6e | 74 48 69 73 74 6f 72 79 |..Curren|tHistory|
|00001970| 20 3d 20 55 57 69 6e 64 | 6f 77 45 64 69 74 42 6f | = UWind|owEditBo|
|00001980| 78 48 69 73 74 6f 72 79 | 28 43 75 72 72 65 6e 74 |xHistory|(Current|
|00001990| 48 69 73 74 6f 72 79 2e | 4e 65 78 74 29 3b 0d 0a |History.|Next);..|
|000019a0| 09 09 09 09 53 65 74 56 | 61 6c 75 65 28 43 75 72 |....SetV|alue(Cur|
|000019b0| 72 65 6e 74 48 69 73 74 | 6f 72 79 2e 48 69 73 74 |rentHist|ory.Hist|
|000019c0| 6f 72 79 54 65 78 74 29 | 3b 0d 0a 09 09 09 09 4d |oryText)|;......M|
|000019d0| 6f 76 65 45 6e 64 28 29 | 3b 0d 0a 09 09 09 7d 0d |oveEnd()|;.....}.|
|000019e0| 0a 09 09 7d 0d 0a 09 09 | 62 72 65 61 6b 3b 0d 0a |...}....|break;..|
|000019f0| 09 63 61 73 65 20 30 78 | 32 38 3a 0d 0a 09 09 69 |.case 0x|28:....i|
|00001a00| 66 28 62 43 61 6e 45 64 | 69 74 20 26 26 20 62 48 |f(bCanEd|it && bH|
|00001a10| 69 73 74 6f 72 79 29 0d | 0a 09 09 7b 0d 0a 09 09 |istory).|...{....|
|00001a20| 09 62 41 6c 6c 53 65 6c | 65 63 74 65 64 20 3d 20 |.bAllSel|ected = |
|00001a30| 46 61 6c 73 65 3b 0d 0a | 09 09 09 69 66 28 43 75 |False;..|...if(Cu|
|00001a40| 72 72 65 6e 74 48 69 73 | 74 6f 72 79 20 21 3d 20 |rrentHis|tory != |
|00001a50| 4e 6f 6e 65 20 26 26 20 | 43 75 72 72 65 6e 74 48 |None && |CurrentH|
|00001a60| 69 73 74 6f 72 79 2e 50 | 72 65 76 20 21 3d 20 4e |istory.P|rev != N|
|00001a70| 6f 6e 65 29 0d 0a 09 09 | 09 7b 0d 0a 09 09 09 09 |one)....|.{......|
|00001a80| 43 75 72 72 65 6e 74 48 | 69 73 74 6f 72 79 20 3d |CurrentH|istory =|
|00001a90| 20 55 57 69 6e 64 6f 77 | 45 64 69 74 42 6f 78 48 | UWindow|EditBoxH|
|00001aa0| 69 73 74 6f 72 79 28 43 | 75 72 72 65 6e 74 48 69 |istory(C|urrentHi|
|00001ab0| 73 74 6f 72 79 2e 50 72 | 65 76 29 3b 0d 0a 09 09 |story.Pr|ev);....|
|00001ac0| 09 09 53 65 74 56 61 6c | 75 65 28 43 75 72 72 65 |..SetVal|ue(Curre|
|00001ad0| 6e 74 48 69 73 74 6f 72 | 79 2e 48 69 73 74 6f 72 |ntHistor|y.Histor|
|00001ae0| 79 54 65 78 74 29 3b 0d | 0a 09 09 09 09 4d 6f 76 |yText);.|.....Mov|
|00001af0| 65 45 6e 64 28 29 3b 0d | 0a 09 09 09 7d 0d 0a 09 |eEnd();.|....}...|
|00001b00| 09 7d 0d 0a 09 09 62 72 | 65 61 6b 3b 0d 0a 09 63 |.}....br|eak;...c|
|00001b10| 61 73 65 20 30 78 32 34 | 3a 0d 0a 09 09 69 66 28 |ase 0x24|:....if(|
|00001b20| 62 43 61 6e 45 64 69 74 | 29 0d 0a 09 09 09 4d 6f |bCanEdit|).....Mo|
|00001b30| 76 65 48 6f 6d 65 28 29 | 3b 0d 0a 09 09 62 41 6c |veHome()|;....bAl|
|00001b40| 6c 53 65 6c 65 63 74 65 | 64 20 3d 20 46 61 6c 73 |lSelecte|d = Fals|
|00001b50| 65 3b 0d 0a 09 09 62 72 | 65 61 6b 3b 0d 0a 09 63 |e;....br|eak;...c|
|00001b60| 61 73 65 20 30 78 32 33 | 3a 0d 0a 09 09 69 66 28 |ase 0x23|:....if(|
|00001b70| 62 43 61 6e 45 64 69 74 | 29 0d 0a 09 09 09 4d 6f |bCanEdit|).....Mo|
|00001b80| 76 65 45 6e 64 28 29 3b | 0d 0a 09 09 62 41 6c 6c |veEnd();|....bAll|
|00001b90| 53 65 6c 65 63 74 65 64 | 20 3d 20 46 61 6c 73 65 |Selected| = False|
|00001ba0| 3b 0d 0a 09 09 62 72 65 | 61 6b 3b 0d 0a 09 63 61 |;....bre|ak;...ca|
|00001bb0| 73 65 20 30 78 30 38 3a | 0d 0a 09 09 69 66 28 62 |se 0x08:|....if(b|
|00001bc0| 43 61 6e 45 64 69 74 29 | 0d 0a 09 09 7b 0d 0a 09 |CanEdit)|....{...|
|00001bd0| 09 09 69 66 28 62 41 6c | 6c 53 65 6c 65 63 74 65 |..if(bAl|lSelecte|
|00001be0| 64 29 0d 0a 09 09 09 09 | 43 6c 65 61 72 28 29 3b |d)......|Clear();|
|00001bf0| 0d 0a 09 09 09 65 6c 73 | 65 0d 0a 09 09 09 09 42 |.....els|e......B|
|00001c00| 61 63 6b 73 70 61 63 65 | 28 29 3b 0d 0a 09 09 7d |ackspace|();....}|
|00001c10| 0d 0a 09 09 62 41 6c 6c | 53 65 6c 65 63 74 65 64 |....bAll|Selected|
|00001c20| 20 3d 20 46 61 6c 73 65 | 3b 0d 0a 09 09 62 72 65 | = False|;....bre|
|00001c30| 61 6b 3b 0d 0a 09 63 61 | 73 65 20 30 78 32 45 3a |ak;...ca|se 0x2E:|
|00001c40| 0d 0a 09 09 69 66 28 62 | 43 61 6e 45 64 69 74 29 |....if(b|CanEdit)|
|00001c50| 0d 0a 09 09 7b 0d 0a 09 | 09 09 69 66 28 62 41 6c |....{...|..if(bAl|
|00001c60| 6c 53 65 6c 65 63 74 65 | 64 29 0d 0a 09 09 09 09 |lSelecte|d)......|
|00001c70| 43 6c 65 61 72 28 29 3b | 0d 0a 09 09 09 65 6c 73 |Clear();|.....els|
|00001c80| 65 0d 0a 09 09 09 09 44 | 65 6c 65 74 65 28 29 3b |e......D|elete();|
|00001c90| 0d 0a 09 09 7d 0d 0a 09 | 09 62 41 6c 6c 53 65 6c |....}...|.bAllSel|
|00001ca0| 65 63 74 65 64 20 3d 20 | 46 61 6c 73 65 3b 0d 0a |ected = |False;..|
|00001cb0| 09 09 62 72 65 61 6b 3b | 0d 0a 09 63 61 73 65 20 |..break;|...case |
|00001cc0| 30 78 42 45 3a 0d 0a 09 | 63 61 73 65 20 30 78 36 |0xBE:...|case 0x6|
|00001cd0| 45 3a 0d 0a 09 09 69 66 | 20 28 62 4e 75 6d 65 72 |E:....if| (bNumer|
|00001ce0| 69 63 46 6c 6f 61 74 29 | 0d 0a 09 09 09 49 6e 73 |icFloat)|.....Ins|
|00001cf0| 65 72 74 28 41 73 63 28 | 22 2e 22 29 29 3b 0d 0a |ert(Asc(|"."));..|
|00001d00| 09 09 62 72 65 61 6b 3b | 0d 0a 09 64 65 66 61 75 |..break;|...defau|
|00001d10| 6c 74 3a 0d 0a 09 09 69 | 66 28 20 62 43 6f 6e 74 |lt:....i|f( bCont|
|00001d20| 72 6f 6c 44 6f 77 6e 20 | 29 0d 0a 09 09 7b 0d 0a |rolDown |)....{..|
|00001d30| 09 09 09 69 66 28 20 4b | 65 79 20 3d 3d 20 41 73 |...if( K|ey == As|
|00001d40| 63 28 22 63 22 29 20 7c | 7c 20 4b 65 79 20 3d 3d |c("c") ||| Key ==|
|00001d50| 20 41 73 63 28 22 43 22 | 29 29 0d 0a 09 09 09 09 | Asc("C"|))......|
|00001d60| 45 64 69 74 43 6f 70 79 | 28 29 3b 0d 0a 0d 0a 09 |EditCopy|();.....|
|00001d70| 09 09 69 66 28 20 4b 65 | 79 20 3d 3d 20 41 73 63 |..if( Ke|y == Asc|
|00001d80| 28 22 76 22 29 20 7c 7c | 20 4b 65 79 20 3d 3d 20 |("v") ||| Key == |
|00001d90| 41 73 63 28 22 56 22 29 | 29 0d 0a 09 09 09 09 45 |Asc("V")|)......E|
|00001da0| 64 69 74 50 61 73 74 65 | 28 29 3b 0d 0a 0d 0a 09 |ditPaste|();.....|
|00001db0| 09 09 69 66 28 20 4b 65 | 79 20 3d 3d 20 41 73 63 |..if( Ke|y == Asc|
|00001dc0| 28 22 78 22 29 20 7c 7c | 20 4b 65 79 20 3d 3d 20 |("x") ||| Key == |
|00001dd0| 41 73 63 28 22 58 22 29 | 29 0d 0a 09 09 09 09 45 |Asc("X")|)......E|
|00001de0| 64 69 74 43 75 74 28 29 | 3b 0d 0a 09 09 7d 0d 0a |ditCut()|;....}..|
|00001df0| 09 09 65 6c 73 65 0d 0a | 09 09 7b 0d 0a 09 09 09 |..else..|..{.....|
|00001e00| 69 66 28 4e 6f 74 69 66 | 79 4f 77 6e 65 72 20 21 |if(Notif|yOwner !|
|00001e10| 3d 20 4e 6f 6e 65 29 0d | 0a 09 09 09 09 4e 6f 74 |= None).|.....Not|
|00001e20| 69 66 79 4f 77 6e 65 72 | 2e 4b 65 79 44 6f 77 6e |ifyOwner|.KeyDown|
|00001e30| 28 4b 65 79 2c 20 58 2c | 20 59 29 3b 0d 0a 09 09 |(Key, X,| Y);....|
|00001e40| 09 65 6c 73 65 0d 0a 09 | 09 09 09 53 75 70 65 72 |.else...|...Super|
|00001e50| 2e 4b 65 79 44 6f 77 6e | 28 4b 65 79 2c 20 58 2c |.KeyDown|(Key, X,|
|00001e60| 20 59 29 3b 0d 0a 09 09 | 7d 0d 0a 09 0d 0a 09 09 | Y);....|}.......|
|00001e70| 62 72 65 61 6b 3b 0d 0a | 09 7d 0d 0a 7d 0d 0a 0d |break;..|.}..}...|
|00001e80| 0a 66 75 6e 63 74 69 6f | 6e 20 43 6c 69 63 6b 28 |.functio|n Click(|
|00001e90| 66 6c 6f 61 74 20 58 2c | 20 66 6c 6f 61 74 20 59 |float X,| float Y|
|00001ea0| 29 0d 0a 7b 0d 0a 09 4e | 6f 74 69 66 79 28 44 45 |)..{...N|otify(DE|
|00001eb0| 5f 43 6c 69 63 6b 29 3b | 0d 0a 7d 0d 0a 0d 0a 66 |_Click);|..}....f|
|00001ec0| 75 6e 63 74 69 6f 6e 20 | 4c 4d 6f 75 73 65 44 6f |unction |LMouseDo|
|00001ed0| 77 6e 28 66 6c 6f 61 74 | 20 58 2c 20 66 6c 6f 61 |wn(float| X, floa|
|00001ee0| 74 20 59 29 0d 0a 7b 0d | 0a 09 53 75 70 65 72 2e |t Y)..{.|..Super.|
|00001ef0| 4c 4d 6f 75 73 65 44 6f | 77 6e 28 58 2c 20 59 29 |LMouseDo|wn(X, Y)|
|00001f00| 3b 0d 0a 09 4e 6f 74 69 | 66 79 28 44 45 5f 4c 4d |;...Noti|fy(DE_LM|
|00001f10| 6f 75 73 65 44 6f 77 6e | 29 3b 0d 0a 7d 0d 0a 0d |ouseDown|);..}...|
|00001f20| 0a 66 75 6e 63 74 69 6f | 6e 20 50 61 69 6e 74 28 |.functio|n Paint(|
|00001f30| 43 61 6e 76 61 73 20 43 | 2c 20 66 6c 6f 61 74 20 |Canvas C|, float |
|00001f40| 58 2c 20 66 6c 6f 61 74 | 20 59 29 0d 0a 7b 0d 0a |X, float| Y)..{..|
|00001f50| 09 6c 6f 63 61 6c 20 66 | 6c 6f 61 74 20 57 2c 20 |.local f|loat W, |
|00001f60| 48 3b 0d 0a 09 6c 6f 63 | 61 6c 20 66 6c 6f 61 74 |H;...loc|al float|
|00001f70| 20 54 65 78 74 59 3b 0d | 0a 09 0d 0a 09 43 2e 46 | TextY;.|.....C.F|
|00001f80| 6f 6e 74 20 3d 20 52 6f | 6f 74 2e 46 6f 6e 74 73 |ont = Ro|ot.Fonts|
|00001f90| 5b 46 6f 6e 74 5d 3b 0d | 0a 0d 0a 09 54 65 78 74 |[Font];.|....Text|
|00001fa0| 53 69 7a 65 28 43 2c 20 | 22 41 22 2c 20 57 2c 20 |Size(C, |"A", W, |
|00001fb0| 48 29 3b 0d 0a 09 54 65 | 78 74 59 20 3d 20 28 57 |H);...Te|xtY = (W|
|00001fc0| 69 6e 48 65 69 67 68 74 | 20 2d 20 48 29 20 2f 20 |inHeight| - H) / |
|00001fd0| 32 3b 0d 0a 0d 0a 09 54 | 65 78 74 53 69 7a 65 28 |2;.....T|extSize(|
|00001fe0| 43 2c 20 4c 65 66 74 28 | 56 61 6c 75 65 2c 20 43 |C, Left(|Value, C|
|00001ff0| 61 72 65 74 4f 66 66 73 | 65 74 29 2c 20 57 2c 20 |aretOffs|et), W, |
|00002000| 48 29 3b 0d 0a 0d 0a 09 | 43 2e 53 65 74 44 72 61 |H);.....|C.SetDra|
|00002010| 77 43 6f 6c 6f 72 28 32 | 35 35 2c 32 35 35 2c 32 |wColor(2|55,255,2|
|00002020| 35 35 29 3b 0d 0a 09 0d | 0a 09 69 66 28 57 20 2b |55);....|..if(W +|
|00002030| 20 4f 66 66 73 65 74 20 | 3c 20 30 29 0d 0a 09 09 | Offset |< 0)....|
|00002040| 4f 66 66 73 65 74 20 3d | 20 2d 57 3b 0d 0a 0d 0a |Offset =| -W;....|
|00002050| 09 69 66 28 57 20 2b 20 | 4f 66 66 73 65 74 20 3e |.if(W + |Offset >|
|00002060| 20 28 57 69 6e 57 69 64 | 74 68 20 2d 20 32 29 29 | (WinWid|th - 2))|
|00002070| 0d 0a 09 7b 0d 0a 09 09 | 4f 66 66 73 65 74 20 3d |...{....|Offset =|
|00002080| 20 28 57 69 6e 57 69 64 | 74 68 20 2d 20 32 29 20 | (WinWid|th - 2) |
|00002090| 2d 20 57 3b 0d 0a 09 09 | 69 66 28 4f 66 66 73 65 |- W;....|if(Offse|
|000020a0| 74 20 3e 20 30 29 20 4f | 66 66 73 65 74 20 3d 20 |t > 0) O|ffset = |
|000020b0| 30 3b 0d 0a 09 7d 0d 0a | 0d 0a 09 43 2e 44 72 61 |0;...}..|...C.Dra|
|000020c0| 77 43 6f 6c 6f 72 20 3d | 20 54 65 78 74 43 6f 6c |wColor =| TextCol|
|000020d0| 6f 72 3b 0d 0a 0d 0a 09 | 69 66 28 62 41 6c 6c 53 |or;.....|if(bAllS|
|000020e0| 65 6c 65 63 74 65 64 29 | 0d 0a 09 7b 0d 0a 09 09 |elected)|...{....|
|000020f0| 44 72 61 77 53 74 72 65 | 74 63 68 65 64 54 65 78 |DrawStre|tchedTex|
|00002100| 74 75 72 65 28 43 2c 20 | 4f 66 66 73 65 74 20 2b |ture(C, |Offset +|
|00002110| 20 31 2c 20 54 65 78 74 | 59 2c 20 57 2c 20 48 2c | 1, Text|Y, W, H,|
|00002120| 20 54 65 78 74 75 72 65 | 27 55 57 69 6e 64 6f 77 | Texture|'UWindow|
|00002130| 2e 57 68 69 74 65 54 65 | 78 74 75 72 65 27 29 3b |.WhiteTe|xture');|
|00002140| 0d 0a 0d 0a 09 09 2f 2f | 20 49 6e 76 65 72 74 20 |......//| Invert |
|00002150| 43 6f 6c 6f 72 73 0d 0a | 09 09 43 2e 53 65 74 44 |Colors..|..C.SetD|
|00002160| 72 61 77 43 6f 6c 6f 72 | 28 32 35 35 20 5e 20 43 |rawColor|(255 ^ C|
|00002170| 2e 44 72 61 77 43 6f 6c | 6f 72 2e 52 2c 20 32 35 |.DrawCol|or.R, 25|
|00002180| 35 20 5e 20 43 2e 44 72 | 61 77 43 6f 6c 6f 72 2e |5 ^ C.Dr|awColor.|
|00002190| 47 2c 20 32 35 35 20 5e | 20 43 2e 44 72 61 77 43 |G, 255 ^| C.DrawC|
|000021a0| 6f 6c 6f 72 2e 42 29 3b | 0d 0a 09 7d 0d 0a 0d 0a |olor.B);|...}....|
|000021b0| 09 43 6c 69 70 54 65 78 | 74 28 43 2c 20 4f 66 66 |.ClipTex|t(C, Off|
|000021c0| 73 65 74 20 2b 20 31 2c | 20 54 65 78 74 59 2c 20 |set + 1,| TextY, |
|000021d0| 20 56 61 6c 75 65 29 3b | 0d 0a 0d 0a 09 69 66 28 | Value);|.....if(|
|000021e0| 28 21 62 48 61 73 4b 65 | 79 62 6f 61 72 64 46 6f |(!bHasKe|yboardFo|
|000021f0| 63 75 73 29 20 7c 7c 20 | 28 21 62 43 61 6e 45 64 |cus) || |(!bCanEd|
|00002200| 69 74 29 29 0d 0a 09 09 | 62 53 68 6f 77 43 61 72 |it))....|bShowCar|
|00002210| 65 74 20 3d 20 46 61 6c | 73 65 3b 0d 0a 09 65 6c |et = Fal|se;...el|
|00002220| 73 65 0d 0a 09 7b 0d 0a | 09 09 69 66 28 28 47 65 |se...{..|..if((Ge|
|00002230| 74 4c 65 76 65 6c 28 29 | 2e 54 69 6d 65 53 65 63 |tLevel()|.TimeSec|
|00002240| 6f 6e 64 73 20 3e 20 4c | 61 73 74 44 72 61 77 54 |onds > L|astDrawT|
|00002250| 69 6d 65 20 2b 20 30 2e | 33 29 20 7c 7c 20 28 47 |ime + 0.|3) || (G|
|00002260| 65 74 4c 65 76 65 6c 28 | 29 2e 54 69 6d 65 53 65 |etLevel(|).TimeSe|
|00002270| 63 6f 6e 64 73 20 3c 20 | 4c 61 73 74 44 72 61 77 |conds < |LastDraw|
|00002280| 54 69 6d 65 29 29 0d 0a | 09 09 7b 0d 0a 09 09 09 |Time))..|..{.....|
|00002290| 4c 61 73 74 44 72 61 77 | 54 69 6d 65 20 3d 20 47 |LastDraw|Time = G|
|000022a0| 65 74 4c 65 76 65 6c 28 | 29 2e 54 69 6d 65 53 65 |etLevel(|).TimeSe|
|000022b0| 63 6f 6e 64 73 3b 0d 0a | 09 09 09 62 53 68 6f 77 |conds;..|...bShow|
|000022c0| 43 61 72 65 74 20 3d 20 | 21 62 53 68 6f 77 43 61 |Caret = |!bShowCa|
|000022d0| 72 65 74 3b 0d 0a 09 09 | 7d 0d 0a 09 7d 0d 0a 0d |ret;....|}...}...|
|000022e0| 0a 09 69 66 28 62 53 68 | 6f 77 43 61 72 65 74 29 |..if(bSh|owCaret)|
|000022f0| 0d 0a 09 09 43 6c 69 70 | 54 65 78 74 28 43 2c 20 |....Clip|Text(C, |
|00002300| 4f 66 66 73 65 74 20 2b | 20 57 20 2d 20 31 2c 20 |Offset +| W - 1, |
|00002310| 54 65 78 74 59 2c 20 22 | 7c 22 29 3b 0d 0a 7d 0d |TextY, "||");..}.|
|00002320| 0a 0d 0a 66 75 6e 63 74 | 69 6f 6e 20 43 6c 6f 73 |...funct|ion Clos|
|00002330| 65 28 6f 70 74 69 6f 6e | 61 6c 20 62 6f 6f 6c 20 |e(option|al bool |
|00002340| 62 42 79 50 61 72 65 6e | 74 29 0d 0a 7b 0d 0a 09 |bByParen|t)..{...|
|00002350| 69 66 28 62 43 68 61 6e | 67 65 50 65 6e 64 69 6e |if(bChan|gePendin|
|00002360| 67 29 0d 0a 09 7b 0d 0a | 09 09 62 43 68 61 6e 67 |g)...{..|..bChang|
|00002370| 65 50 65 6e 64 69 6e 67 | 20 3d 20 46 61 6c 73 65 |ePending| = False|
|00002380| 3b 0d 0a 09 09 4e 6f 74 | 69 66 79 28 44 45 5f 43 |;....Not|ify(DE_C|
|00002390| 68 61 6e 67 65 29 3b 0d | 0a 09 7d 0d 0a 09 62 4b |hange);.|..}...bK|
|000023a0| 65 79 44 6f 77 6e 20 3d | 20 46 61 6c 73 65 3b 0d |eyDown =| False;.|
|000023b0| 0a 09 53 75 70 65 72 2e | 43 6c 6f 73 65 28 62 42 |..Super.|Close(bB|
|000023c0| 79 50 61 72 65 6e 74 29 | 3b 0d 0a 7d 0d 0a 0d 0a |yParent)|;..}....|
|000023d0| 66 75 6e 63 74 69 6f 6e | 20 46 6f 63 75 73 4f 74 |function| FocusOt|
|000023e0| 68 65 72 57 69 6e 64 6f | 77 28 55 57 69 6e 64 6f |herWindo|w(UWindo|
|000023f0| 77 57 69 6e 64 6f 77 20 | 57 29 0d 0a 7b 0d 0a 09 |wWindow |W)..{...|
|00002400| 69 66 28 62 43 68 61 6e | 67 65 50 65 6e 64 69 6e |if(bChan|gePendin|
|00002410| 67 29 0d 0a 09 7b 0d 0a | 09 09 62 43 68 61 6e 67 |g)...{..|..bChang|
|00002420| 65 50 65 6e 64 69 6e 67 | 20 3d 20 46 61 6c 73 65 |ePending| = False|
|00002430| 3b 0d 0a 09 09 4e 6f 74 | 69 66 79 28 44 45 5f 43 |;....Not|ify(DE_C|
|00002440| 68 61 6e 67 65 29 3b 0d | 0a 09 7d 0d 0a 0d 0a 09 |hange);.|..}.....|
|00002450| 69 66 28 4e 6f 74 69 66 | 79 4f 77 6e 65 72 20 21 |if(Notif|yOwner !|
|00002460| 3d 20 4e 6f 6e 65 29 0d | 0a 09 09 4e 6f 74 69 66 |= None).|...Notif|
|00002470| 79 4f 77 6e 65 72 2e 46 | 6f 63 75 73 4f 74 68 65 |yOwner.F|ocusOthe|
|00002480| 72 57 69 6e 64 6f 77 28 | 57 29 3b 0d 0a 09 65 6c |rWindow(|W);...el|
|00002490| 73 65 0d 0a 09 09 53 75 | 70 65 72 2e 46 6f 63 75 |se....Su|per.Focu|
|000024a0| 73 4f 74 68 65 72 57 69 | 6e 64 6f 77 28 57 29 3b |sOtherWi|ndow(W);|
|000024b0| 0d 0a 7d 0d 0a 0d 0a 66 | 75 6e 63 74 69 6f 6e 20 |..}....f|unction |
|000024c0| 4b 65 79 46 6f 63 75 73 | 45 6e 74 65 72 28 29 0d |KeyFocus|Enter().|
|000024d0| 0a 7b 0d 0a 09 69 66 28 | 62 53 65 6c 65 63 74 4f |.{...if(|bSelectO|
|000024e0| 6e 46 6f 63 75 73 20 26 | 26 20 21 62 48 61 73 4b |nFocus &|& !bHasK|
|000024f0| 65 79 62 6f 61 72 64 46 | 6f 63 75 73 29 0d 0a 09 |eyboardF|ocus)...|
|00002500| 09 53 65 6c 65 63 74 41 | 6c 6c 28 29 3b 0d 0a 0d |.SelectA|ll();...|
|00002510| 0a 09 53 75 70 65 72 2e | 4b 65 79 46 6f 63 75 73 |..Super.|KeyFocus|
|00002520| 45 6e 74 65 72 28 29 3b | 0d 0a 7d 0d 0a 0d 0a 66 |Enter();|..}....f|
|00002530| 75 6e 63 74 69 6f 6e 20 | 44 6f 75 62 6c 65 43 6c |unction |DoubleCl|
|00002540| 69 63 6b 28 66 6c 6f 61 | 74 20 58 2c 20 66 6c 6f |ick(floa|t X, flo|
|00002550| 61 74 20 59 29 0d 0a 7b | 0d 0a 09 53 75 70 65 72 |at Y)..{|...Super|
|00002560| 2e 44 6f 75 62 6c 65 43 | 6c 69 63 6b 28 58 2c 20 |.DoubleC|lick(X, |
|00002570| 59 29 3b 0d 0a 09 53 65 | 6c 65 63 74 41 6c 6c 28 |Y);...Se|lectAll(|
|00002580| 29 3b 0d 0a 7d 0d 0a 0d | 0a 66 75 6e 63 74 69 6f |);..}...|.functio|
|00002590| 6e 20 4b 65 79 46 6f 63 | 75 73 45 78 69 74 28 29 |n KeyFoc|usExit()|
|000025a0| 0d 0a 7b 0d 0a 09 62 41 | 6c 6c 53 65 6c 65 63 74 |..{...bA|llSelect|
|000025b0| 65 64 20 3d 20 46 61 6c | 73 65 3b 0d 0a 09 53 75 |ed = Fal|se;...Su|
|000025c0| 70 65 72 2e 4b 65 79 46 | 6f 63 75 73 45 78 69 74 |per.KeyF|ocusExit|
|000025d0| 28 29 3b 0d 0a 7d 0d 0a | 09 0d 0a 00             |();..}..|....    |
+--------+-------------------------+-------------------------+--------+--------+